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18-Sep-1984 99: 48: $f SMGRTL.SRCISMGBLDTRM. 5 2:1 9 a) 
9 1 0 MODULE SMGSBUILD, TERM Tate HT “1 it LE "Build terminal table’ 
: SmGS BUILD. TERM_TABLE 
0 ; DENT = 'F{le: SMGBLDTAB.B32 Edit: PLL1002 
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le4 
; FACILITY: Screen Management 
ABSTRACT: 
3 i This module contains the parser for the TERMTABLE.TXT terminal 
37 i capabilities file. It accepts an ascii TERMTABLE.TXT file as input and 
Hs produces a binary capabilities file, TERMTABLE.EXE, as output. 
40 This module is used in conjunction with the RTL Screen Management 
eh routines. 
“3 ENVIRONMENT: User mode - AST reentrant 
Bee AUTHOR: P. Levesque CREATION DATE: 1-Nov-1983 
O47 MODIFIED BY: 
049 i q- “9 - hae ot Put 1-Nov-1983 
0050 i 1-002 - 4 output file, use default extension .EXE and default name 
0080 we of TERMTABLE (so logical mame may be used). PLL 19-Mar-1984 
5 
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SMGSBUILD_TERM_ pute terminal table 1b-5¢ -1984 AX-11 Bliss-32 V4.0-7 Pa 

ti Declarations Sep-19 4 99: 48; $5 SMGRTL.SRCJSMGBLDTRM. 3 2;1 - (23 
: 5 : } 4SBTTL ‘Declarations’ ; 
: 5 6 1 | SWITCHES: ; 
3 8 1! 3 
3 9 0 1 3 
; 0 1! 3 
3; 6) 60 1 ! LINKAGES: 3 
3 °¢ 61 1! 3 
> § 062 1! NONE : 
; 64 065 1! 3 
3 65 064 1 ! TABLE OF CONTENTS: $ 
; ¢ 892 1! 3 
3; 6 § 1 3 
; 68 06 1 FORWARD sd : 
; & BRe8 1 eee vite TERM_TABLE : NOVALUE,! mainline interpretter ; 
: 70 069 1 OPE N_FILES, ! open ascii & binary TERMTABLEs $ 
, ee 0070 1 PARSE _TERM_DEFS, ! parse a terminal definition & insert ; 
ae 0071 #1 ! it into the binary file 3 
Tet: O07 6 1 CLOSE_FILES, ' close ascii & binary TERMTABLEs 3 
a. / 00735 1 CLOSE_WITH_DLT; ! exit handler to close the .exe ; 
ee | 0074 1 ! file with the delete bit set ; 
: 76 0075 1 F 
; 0076 1! 3 
: 78 0077 1 ! INCLUDE FILES: 3 
Tee. 0078 1! 3 
; 0079 1 3 
: a 8088 ! REQUIRE ‘RTLIN:SMGPROLOG'; ! Defines psects, macros, etc. “ 
: 8 0159 1 LIBRARY "RTLML:SMGTPALIB’; Definitions & macros used : 
; 84 0160 1 ' to construct TERMTABLE.EXE : 
: 3 He : LIBRARY ‘RTLTPAMAC'; ! TPARSE Library of macros : 
: 87 ois 1! ; 
; wo 164 1 ! MACROS: 3 
; 6«89 165 1! 3 
5 90 196 1 i+ 3 
; 167 1! If we get interupted by a control Y or control C, we don't want to leave : 
; F 168 1 | an incomplete TERMTABLE.EXE in the user's directory. Establish an exit : 
3 a7 4 ! i. handler that will close the file with the delete bit set. : 
: 95 " 171 MACRO SDECLARE oo 2 : 
: 97 s 178 1 piT ~BLOCK = LOSE -WITH_OLT; ! address of exit handler routine 
3 38 40174 #1 EXIT = ' number of args passe 
: m0175 1 EXIT~ “BLOCK = EkiT REASON; !' addr to hold reason 
3 199 . a | ! EXIT-BLOCK = .PARAM_BLOCK; ' parameter for exit handler routine 
: 108 i] 178 1 SDCLEXH (DESBLK = EXIT_BLOCK); ! establish exit handler 
2 17 1 END;2; 
a | 180 1 
: 105 181 1! 
i. 1 1 ! EQUATED SYMBOLS: 
ss 1 1! 
$ 198 1 1! NONE 
9 185 1! 
; 110 1 1 ! FIELDS: 
s 911 1 1! 


ee En ee ee ee ee eee ee eee ped 


; Sectance aes © ed 
) 


8 
in802 > Declarations 12-$3p-1986 99:05:97 — ESmantLosneSsmceLDiRM.682; 1 die: 


EXTERNA 

! TPARSE state table 

' TPARSE key words 

! offset into TERMTABLE .EXE 

! block number of current definition 


2 
a 
oe 
bad 
pa] 


EXTERNAL LITERAL 
SMG$_SYNERR; 


, 3 1 1! NONE 

i 1 1! 

s 1 1 ! PSECTS: 

el ae 

ae 1 g 1 

3 3 1 1! 

as 195 1 ! OWN STORAGE: 

:% 138 1 

ro % 1 1 OWN 

, ¥ 198 1 BINARY_NAM : REF Sa PECL name block ie » binary file 
ae 1 1 EXIT_REASON INITIAL { a addr fo, 8 put in exit block 
Kite 1 EXIT_BLOCK : VECTOR (5) INITIAL CREP’ 5 OF ¢ 

: : : !" info block for exit handler 
we 1! 

3 : ! EXTERNAL REFERENCES: 

ae 1 EXTERNAL R LB 

. F 1 LIBSTPARSE, ' parser 

Bas 1 tL BScET VM. ! allocate virtual memory 

3 } : LIBSFREE_VA; ! deallocate virtual memory 
e O512 | 

3 3 6 1 

> 1 

oe 1 

_ 1 

FR 1 

3 3 0 1 


a ~siean he eae 
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syntax error 


UILD_TERM_ Build terminal table 18-5e Sep-1984 AX-11 Blisg-32 V4.0-7 Page 4 
3780 SMGSBUILD_TERM_TABLE =300 138 99: 4g: re SMGRTL” SRCJSMGBLOTRM. 3 2;1 . (3) 
> (146 1 ZSBTTL ‘SMGSBUILD_TERM TABLE’ 
; 13? : GLOBAL ROUTINE SMGSBUICD_TERM_TABLE : NOVALUE = 
; 123 1 !+4 
: 108 ! FUNCTIONAL DESCRIPTION: 
: 4 9 5 1! This is the anainline epic, to build the binary terminal capabilities file. 
pe § 1! It builds ene binary by: 
9 § 1: opening ene afc i TERMTABLE.TXT for read access 
os 8 1! opening yt re TERMTABLE. exe for write access (block 1/0) 
3; 61546 1} parsing & moving the capab Lities from the .txt file to the .exe 
5 : 5 ? ! exits after closing TERMTABLE.TXT and TERMTABLE. EXE 
: $ ; { CALLING SEQUENCE: 
: 1 5 4 1! SMGSBUILD_TERM_TABLE () 
: 160 cs 
3; «6161 § 1 ! FORMAL PARAMETERS: 
; 166 1! 
: 8 0539 1 | — 
: 165 0 40 ! IMPLICIT INPUTS: 
s Bsee 1 | at 
; 169 0 44 i IMPLICIT OUTPUTS: 
Pig ea 
; 178 0 48 ! COMPLETION STATUS: 
: He 0950 : ; Errors are signalled 
F 179 0388 | SIDE EFFECTS: 
: 179 0254 1! NONE 
: iB $58 1 | 
; 18¢ 6 57 17 
; «(18 0258 BEGIN 
3: «(186 9638 LOCAL 
s 185 60 TPARSE_BLOCK, ! address of param block for LIB$TPARSE 
: 196 iY STATUS; i status returned by called routines 
: 4 6 + 
; 189 64 ' Allocate virtual menery for control blocks. Our local parameter 
; 139 66 t block will follow the TPARSE parameter block. | 
: 19 6 
3 198 68 IF NOT (STATUS = LIBSGET_VM Ey (SMGSK_PARAM_BLOCK_SIZE), 
3 194 +4 TPARSE_BLOCKS) 
; #6195 THEN 
é 136 g SIGNAL_STOP (.STATUS); 
: 198 7 CHSFILL (0, SMGSK_PARAM_BLOCK_SIZE, ; TPARSE BLOCK); 
: 1 ! init fo zeroes 
3 !¢ 


aga: TERA, Pullé 


on  _ 


MEAN 90 OONOVES WN "OOOO 


ermine table iSoseo-198e O0:)2e47  yatett BL isg= 32 v4 0574. 


1 OPEN d $ yyy fiht in the PARAM_ « ws h cae FAB and RAB tor the 

' as Ny TABLE.TXT, and the chanhe addresses of TERMTABLE.EXE 
! which will be mapped as a segs ren . rhs Sete s needed later to access 

i i files, and t S elese the files. 


iy wot (STATUS = OPEN_FILES (.TPARSE_BLOCK)) 
SIGNAL_STOP (.STATUS); 
'¢ 
i Do the real work. Get records from the ascii file and move and/or 
convert them to the b nary file. 
4 NOT (STATUS = PARSE_TERM_DEFS (.TPARSE_BLOCK)) 
SIGNAL_STOP (.STATUS); 
'¢ 
! Done. Close the ascii TERMTABLE and unmap the section from the binary 
: TERMTABLE. 
iF NOT (STATUS = CLOSE_FILES (.TPARSE_BLOCK)) 
SIGNAL_STOP (.STATUS); 


+ 
Deallocate control blocks. 


IF NOT (STATUS = LIBSFREE_VM (ZREF (SMGSK_PARAM BLOCK_SIZE), 
cas TPARSE_BLOCR)) 
SIGNAL_STOP (.STATUS); 
END; ! End of routine SMGSBUILD_TERM_TABLE 


- TITLE SRCESYILO_TERM_TABLE Build terminal table 
IDENT \1-002\ 


<PSECT _SMGSDATA,NOEXE, PIC,2 
00000 BINARY NAR: 
00000000 00004 EXIT_REASON: 
00000000# 00008 EXIT BLOck: 
. LONG 


4 
0 
0c5] 
~-EXTRN LIBSTPARSE ert tt tte 
LIBSFRE A-STMT_STATES 
~-EXTRN = SMGSSA ae KEYWDS ~ 


~EXTRN = SMGSSDATA OFFSET 
~EXTRN SMGSSCURRENT_DEF _BLOCK 


ee 


Ts 


egg tO TERM. BmOsBUILD. TERA_TABL 1beseo-19 99:05:9) — EoMant SRE Ssacer Diem cese; 1 ree | 
-EXTRN SMGS_SYNERR 
-PSECT _SMGSCODE,NOWRT, SHR, PIC,2 


Ts 


00FC 00000 ENTRY SHGSBUILD_TERM_TABLE, Save R2,R3,R4,R5,R6,- ; 0220 : 
37 000000006 99 n00C mOvAR L {essror, R7 : ; 
. 06 AE suehae TPARSE BLOCK ; 0268 
04 AE 60 BF PA f ROVIBL #96, AtSP) : : 
AE 9F 000 PUSHAB 4 (SP) : 3 
000000006 00 FB 00C CALLS a. L 1BSGET_VM : F 
$ 0 000 MOVL R TATUS : ; 
E8 000 BLBS = STATUS, ; : 
67 PB 006 CALLS 51) Viesstop : 0271 
0060 8F 00 6E 4 8 2c 00¢ movcS #0, (SP), #0, #96, @TPARSE_BLOCK : 0273 : 
+: ; : 
AE DD 000 PUS TPARSE BLOCK 3 0282 g 
0000v CF F 10 CALLS #1, OPEN FILES : ; 
§ 0 00 00¢ MOVL RO STAT : : 
6 € ‘ BLBS STATUS, : : 
6 DD 00C PUSHL STATUS + 0284 ; 
67 1 FB 000 CALLS #1, LIBSSTOP : 3 
04 AE DD 00% PUSHL TPARSE BLOCK 0291 ; 
0000v ct FB 000 CALLS #1, PARSE_TERM_DEFS : 3 
$ 0 00 00¢ MOVL RO, STAT ; 3 3 
0 6 £ BLBS STATUS, : : 
6 DD PUSHL STATUS : 0293 : 
67 1 FB CALLS #1, LIBSSTOP ; : 
04 AE DD PUSHL  TPARSE BLOCK : 0300 ; 
0000v gf F CALLS #1, CLOSE_FILES 3 3 
D MOVL RO STATUS ; : 
0 E BLBS STATUS, 4 ; : 
DD PUSHL STATUS ; 0302 : 
67 01 FB CALLS #1, LIBSSTOP ; 3 
04 AE 3 PUS TPARSE BLOCK ; 0308 : 
04 AE 60 8F 9A MOVZBL #96, 4TSP) ; ; 
04 AE OF PUSHAB 4(SP) ; 
000000006 90 F CALLS a, LIBSFREE_VM ; 
Dd MOVL RO, STAT 3 
0 6 € BLBS STATUS, F 
67 at fe PRS a1. V iessTor = 
oe RET 3; 0313 


; Routine Size: 137 bytes, Routine Base: _SMGSCODE + 0000 
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ZSBITL ‘OPEN_F Les 
ROUTINE OPEN_FILES ( PARAM_BLOCK : REF BLOCK C,BYTE) 


lee 


i FUNCTIONAL DESCRIPTION: 
This routine opens TERMTABLE.TXT for read access, and creates a file 
named TERMTABLE.EXE. TERMTABLE.EXE is accessed via block 1/0. 

| CALLING SEQUENCE: 
ret_status = OPEN_FILES (PARAM_BLOCK.mz.r) 


{ FORMAL PARAMETERS: 


PARAM_BLOCK.mz.r Parameter block in which to place information 


needed to access files 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
| COMPLETION STATUS: 


SS$_NORMAL 
Errors returned from SOPEN, SCREATE 


{ SIDE EFFECTS: 


NONE 
BEGIN 
14 
i Set up pointers to RMS structures. The FAB and RAB for the 
tl aeatt’, file will be needed later to do $GETs and S$CLOSE. 
"BEGIN 
OCAL 
ASCII_FAB : REF S$FAB_DECL, ! ptr to FAB for ascii file 
ASCII“RAB : REF $RAB_DECL, i pte to RAB for ascii file 
OPEN STATUS, i Status retd from 
STATOS; ' status retd from called routines 


IF NOT (STATUS = LIBSGET_VM (ZREF (FABSC_BLN), PARAM_BLOCK CPARAM_A_TXT_FAB])) 
RETURN (,STATUS); 


WEoseoct9ps 00:33:47 yatett eb fn4-52 ¥4.067 
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oe 


IF NOT (STATUS = LIBSGET_VM (ZREF (RABSC_BLN), PARAM_BLOCK [PARAM_A_TXT_RABJ)) 
RETURN (. STATUS); 


ASCII_FAB = .PARAM_BLOCK [PARAM rete 
SCIIZRAB = .PARAM-BLOCK [CPARAM_A_TXT_RABJ; 


'¢ 
i First a tempt to open the ascii TERMTABLE.TXT. If this fails, 
process ng ends. 


SFAB_INIT sd = .ASCII_FAB, FNM = Mas DNM = °.TXT', 
FAC = GET, SAR = NIL, ORG = SEQ); 

! set up FAB fields 
IF NOT (OPEN_STATUS = SOPEN (FAB = .ASCII_FAB)) 
RETURN (.OPEN_STATUS); 
'¢ 
i if we get here, we successfully opened TERMTABLE.TXT. Connect a 
t RAB to the FAB so we can access it. 


SRAB_INIT (RAB = .ASCIIJ_RAB, FAB = .ASCII_FAB); ! init RAB fields 
IF NOT (STATUS = SCONNECT (RAB = .ASCII_RAB)) 


N 
RETURN (.STATUS); ! connect to ASCII_FAB 
END; 


'¢ 


Open the binary TERMTABLE.EXE. We will be using block 1/0 to write to this 
; e. 
! 


We always want to create a new file. 
BEGIN 
LOCAL 

1 ! status retd from calls 
ve : REF rhe } oe oe FAB for binary file 

BINARY : REF Ett 

RESULT~ “NAME fee cron F E _maxrss? BYTE 

EXPAND-NAME : VECTOR CNAMSC_MAXRSS, ‘BYTE 


IF NOT (STATUS = LIBSGET_VM (BREE (FABSC_BLN) 
sa PARAM_BLOCK~ CPARAM_A_BINARY_FAB])) 


RETURN (,STATUS); 


IF NOT (STATUS = LIBSGET_VM (BREE (RABSC_BLN) 
“then ARAM_BLOCK~ CPARAM_A_BINARY_RAS))) 


RETURN (.STATUS); 


! storage for name block 


ey. RAB for binary file 
i storage for name block 


re 


Be Be Se Se Ge Se Se Se Se Ge Be Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se ee ae SH Ge Se FHS Se ee SH Se Se Oe ee Se Se Oe Oe Se SH Se See Se ee Be Be ae 
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NOUSWN O° 


SANNA NN 


SEALANT ALS Sa 


SS 


ooo 
a 


L 
OPEN 


PPA AAMITNII 


OWONOULSWI—OOW 


vv wv 
FRELRLRRLRLRRLKKEKEK 


ne 
SNA AAAAAAAO 


eppinal table H$seo-19Rs 00:12:47 yatta ieg=32 v4. 0a74g, 


IF NOT (STATUS = LIBSGET_VM et yee BLN), 
THEN BINARY _NAM)) 


RETURN (.STATUS); 


'¢ 

i Establish =. exi ot wie will delete Lael rs EXE if the file is 
it's (Normally we should c ose the itis ourselves 

i yt ghoyt the ot t et. led S prevents partial .exe's from bei 

i. left in the user H d es Mh, 


SDECLARE _EXIT_HANDLER; 


BINARY_FAB = .PARAM_BLOCK (PARAM_A_BINARY_FAB); 
BINARY_RAB = .PARAM_BLOCK CPARAM_A_BINARY_ RABI; 
'¢ 
i Need a NAM block in order to use the DLT bit (delete on. close). DLT 


i prevents an inc lete file from being Left in the user's director 
ef the compiler to interupted. ° . 


SNAM_INIT on = ,BINARY NAM, RSA = RESULT_NAME, RSS = NAMSC_MAXRSS, 


A = EXPAND_RAME, ESS = NAMSC_MAXRSS); 

SFAB_INIT (FAB = .BINARY_FAB, ALQ 

NAM = .BINARY"NAM, FOP 

FNM = ‘TERMTABLE', DNM = 

LF NOT (STATUS = $CREATE (FAB = .BINARY_FAB)) 
RETURN (. STATUS); 


FAC=<B10,GET,PUT DEL>, 
cot ePHRENIL. ORG = 


"connect a RAB to the binary FAB so we can access the records. 
SRAB_INIT (RAB = .BINARY_RAB, FAB = .BINARY_FAB); 
IF NOT (STATUS = SCONNECT (RAB = .BINARY_RAB)) 
RETURN (.STATUS); 
END; 
a (SS$_NORMAL) ; 


End of routine OPEN_FILES 


45 4C 42 41 54 4D 52 45 54 00089 P.AAA: .ASCII \TERMTABLE\ 
Py) a4 : 8 P.AAB: .ASCII \TXT\ 

45 4€ 42 41 . 2 t2 P.AAC: .ASCII \TERMTABLE\ 
& & E 9F P.AAD: .ASCII \.EXE\ 


~-EXTRN SYSSOPEN, SYSSCONNECT 
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SYSSDCLEXH, SYSSCREATE 


Seve Re -R oR3,R4,R5,R6,R7,RB,RI,R1I0,R11 
Ge avin: aii 

R10 

., 
sp), sp R7 


#80, 4(SP) 


STATUS, $ 
#68 , «SP 
a, L LIBSGET_ vM 
STATO 


i 


80, (ASCII_FAB) 
é 


SYSSOPEN 
Sptn “STATUS, 1$ 


#0, (SP), #0, #68, (ASCII_RAB) 
#17409 casei RAB) 


1 FAB, (ASCII_RAB) 
STSSCONNECT 
4 STA Us 
star US, 4 
#80, 4(SP) 
#2, | LIBSGET _vM 
R Tus ~ 
TAT THs. res 
#68, 4(SP) 
#3, | LIBSGET _VM 
erATU 


R10 
HO 4(SP) 
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0372 


0387 


0396 


0398 


419 
18 


0419 
0424 
0423 
0424 


0428 


SPgSQUILO. TERA, 


0060 8F 
0050 = &F 
0044 8F 


; Routine Size: 


00 


00 


409 bytes, 


Bulla. terminal table 
OPEN_FILES 


04 


~o 
nn 


A 
F 
i : 
008 ; 
of Ab 0000V ff 3 
1 AA 2 3 
16 «AA 046 AA 5 
18 AA 57 
08 AA OF 
000000006 00 0) 4 
f RS 
6E 09 Be 
67 600 F 
2 $f oo ogo 
04 A? FFOO 68 E 00 
OA A? 1 8E 00 
Oc A? 04 ae E 00 
6E 2 2c 3 
66 5003 F BO 00 
04 A6 00200000 F 4 0 
10 A6 4 00 00 
16 A6 2027 8F B80 00 
1D A6 94 00 
1F Ab Os 90 00 
8 A6 DO 00 
C Ab FE9F CF 9E 00 
0 A6 peAe F 9E 00 
4 Ab 040 f 4 ; 
000000006 98 1 4 : 
20 3 9 S 
6E : C 
68 4401 F 8B 
3C Am g o 
000000006 1 4 
: SH 
0 9 
50 01 00 
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PUSHAB 
CALLS 


AX-11 Bliss-32 V4.0 


4(SP) 

ie. au ve 

STATUS, 

Het WITH pur. EXIT_BLOCK+4 


ERIT_B 
ie REASON, be BLOCK+12 


44(R x 
48(R7), BINARY RAB 
Ont (SP) #0" #96, (R7) 
424578. (R7) 

Resut onA RARE 4(R7) 


eXbaNDY NAME 12(R7) 
i (SP), #6, #80, (BINARY_FAB) 


* 43097 $2 (BINARY FAB) 


4(BINARY_FAB) 
180 INARY FRY 


AAC 
wAA 
#i03 
BINAR 
#1, S 
RO 
STATUS 
30. (369° #0, #68, (BINARY_RAB) 


#17409, (BINARY_RAB) 
BINA av tM. 60(BINARY_RAB) 


SYSSCONNECT 
RO, at S 


STATUS, 
oa RO 


1, RO 
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0458 


0466 


0468 
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l 1b-5e =1984 00:12:47 AX-11 Bliss-32 V4.0-74 Page 12 
ARS 1 ~3ep-19 4 90:08:45 SMGRTL.SRCJSMGBLDTRM.B32;1 ° (5) 
3 $ 1 _DEFS’ 3 
: } _DEFS ( TPARSE_BLOCK : REF BLOCK C,BYTE) 3 
3 § 1 3 
3 O 1 tee ; 
; rh 1 } FUNCTIONAL DESCRIPTION: ; 
; 410 g 1! This routine moves data from TERMTABLE.TXT to TERMTABLE.EXE. 3 
: 411 4 1! The data is compacted and stored in a manner that allows easy ; 
: tig Be é : } retrieval. $ 
: 414 4 1! PARSE_TERM_DEFS initializes some unique fields in TERMTABLE.EXE ; 
: 415 rh th 1! (for Tnstance the ident), and lncerts the terminal Setinitien 3 
3 213 0489 1! index at the end of the file. Terminal definitions are actually $ 
; «(41 0490 1! parsed and moved by LIBSTPARSE. 3 
; 418 0491 1! $ 
3; 64419 0492 1! 3 
; 420 0495 1 ! CALLING SEQUENCE: 3 
3; 421 0494 1! 3 
3 $56 Rees ! ret_status = PARSE_TERM_DEFS (PARAM_BLOCK.rz.r) ; 
H (33 0497 1 ! FORMAL PARAMETERS: : 
; rH 0498 1! 3 
; 426 0499 1! PARAM_BLOCK.rz.r Address of control block with info needed ; 
3; 427 0500 1! to access files 3 
; 428 0501 1! 3 
; 429 Beng 1 ! IMPLICIT INPUTS: 3 
: 4350 0503 1! 3 
; 431 0506 1! NONE ; 
3 +38 3203 1! 3 
3 45 206 1 ! IMPLICIT OUTPUTS: ; 
; 434 0507 1! 3 
; «435 0508 1! NONE $ 
:; 436 0509 1! 3 
; 437 0510 1 ! COMPLETION STATUS: 3 
: 438 0511 1! 3 
>; 439 Bag 1! 3 
3 440 05135 1! r 
3 441 0514 1 ! SIDE EFFECTS: 3 
3: «44 0515 1! 3 
: (44 9218 1! NONE 3 
3 4446 0517 1! 3 
: 445 0518 1 !-- 3 
3 «44 519 1 3 
3; «44 520 BEGIN 3 
; 4468 521 LOCA 3 
3; 449 5 § TXT_RAB : REF we pect ' ptr to RAB for TERMTABLE.TXT é 
; 450 5 BUFFER : VECTOR C25 byte) : butter to hold .TXT records 3 
> 451 524 PARALLEL_BUFFER : VECTOR L255, BYTE), 
: 45 25 ! another buffer to hold .TXT records 
: 45 5 § VM_STATUS, ' status from LIBSGET/FREE_VM 
3 $e8 : ‘ TERM_INDEX; ! addr for local terminal Tndex 
: 45 5 ‘es 
3 439 530 ! Allocate the buffers used to construct terminal definitions. We write | 
; 658 531 !' to these buffers until we start a new terminal definition or until they 
; 4659 532 ' are full, and then we do a block 1/0 write to flush them. 
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SAGSBUILD_TERM_ 


na 


) 
1 
IF NOT (VM_STATUS = LIBSGET_VM (ZREF (SMGSK HEADER SIZE) 
io TPARSE_BLOCR CPARAM_A_HEADER])) 
RETURN (.VM_STATUS); 


CHSFILL (0, SMGSK_HEADER_SIZE, .TPARSE_BLOCK CPARAM_A_HEADER]) ; 


IF NOT (VM_STATUS = LIBSGET_VM (ZREF (SMG$K TERM DEF_SIZE) 
TPARSE_BLOCR CPARAM_A_CAP_PTRSJ)) 


PDAS SII EB BB EEE EAA 


MEN SO OONAUES WN 9 OO NAUES WN O ODNAOULS WN (OVO ONAOYV EWN "OODNOUIESW U-— 


u 

A 

5 

5 

5 

5 
471 H THEN 
of 2 RETURN (.VM_STATUS); 
ar 2 CHSFILL (0, SMGSK_TERM_DEF_SIZE, .TPARSE_BLOCK CPARAM_A_CAP_PTRS)); 
476 5 TPARSE_BLOCK CPARAM_A_CAP_DATA] = .TPARSE BLOCK CPARAM_A_CAP_PTRS] + 
py : SMGSK_CAP_PTRS_SIZE; 
479 5 TPARSE_BLOCK CPARAM_L_CUR_DATA_BYTE] = .TPARSE_BLOCK CPARAM_A_CAP_DATA]; 
480 5 ! start with Ist byte of data buffer 
rh? see 5 

1¢ 

48 5 ! Point to the first terminal definition. A terminal definition consists 
484 5 ! of gages ts tty peretece fol lowed by capability data. Each terminal 
ret 2 definition will begin on a block boundary. 
rt ; See SMGTABDEF.REQ for more info on the structure of TERMTABLE.EXE. 

56 : 
490 56 BEGIN ! new block for BIND 
491 56 
49 56 BIND 
rhe ? TERM_TAB = .TPARSE_BLOCK CPARAM_A_HEADER] : BLOCK C,BYTE); 
495 6 '¢ 
rhs] 6 Set up some fields at the beginning of TERMTABLE.EXE. 
498 F 


TERM_TAB CTTB_W_IDENT] = 1; ! Ist version of terminal table 


> 


we call LIBSTPARSE to parse and move all the terminal definitions into 
TERMTABLE .EXE. 


Since the TPARSE action routines have access to the RAB, we can set up 
a buffer to hold TERMTABLE.TXT records here. 


ARANVLSS 


We set up 2 buffers, one for the RAB and a second ‘parallel’ buffer. 
The text in the RAB buffer will be yocesed for parsing purposes, and 
the text in the parallel buffer will remain 


SELF 
CoCo 0808 NINN NS 


the way the user specified 
in TERMTABLE.TXT for copying into TERMTABLE.EXE. (Note that case is 
significant in escape and control sequences, but we parse only uppercase 
to avoid having upper and lower case keywords.) 


= 
co 
~N 

SOOO OCSOOOOCOOOCOOCOOCOCOOOSOSOOSSOOCSSGOOOOSCOCOOCOCOCO COCO OOOOOOCOOCOOOOoOOoOO (|UD 


POPUPS PUSS STATISTI III 


. 
. 
. 
* 
. 
2 
. 
. 
. 
a 
o 
. 
o 
. 
. 
. 
o 
. 
o 
. 
o 
. 
os 
7 
ca 
. 
* 
. 
. 
. 
. 
. 
. 
. 
. 
. 
e 
. 
* 
. 
. 
. 
2 
. 
os 
. 
. 
7 
e 
. 
. 
7 
oe 
. 
oe 
. 
. 
. 
. 
. 
oO 
. 
o 
. 
* 
. 
a 
. 
. 
6 
. 
o 
o 
. 
7 
. 
7 
o 
. 
. 
. 
2 
. 
a 
. 
. 
. 
° 
7 
om 
. 
. 
a 
. 
. 
. 
- 
a 
. 
cm 
. 
. 
o 
. 
° 
. 
. 
. 
o 
. 
. 


De Se Se Se Se Se Se Se Be Se Se Be Be Se Se Se Se Se Se Se Se Se Ge See Ge BF Se Se FH Se Se Ge FH Se Os Se FF Oe Se SH Ge FHSS SH Se Be He SH Se OH es Se BH BH es 
~~ 
co 
oO 


PUP PPPS IAI AISI 
tt ns st 
OuFrwn—o 


ooo 


TXT_RAB = .TPARSE_BLOCK CPARAM_A_TXT_RABJ; 
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SMGSBUILD_TERM_ Build terminal table 16-Sep-1984 00:12:47 -YAX=11 Bliss-32 v4.0-74 
i688 PARSE_TERM_DEFS e78e8- 138s 99:08:97 Oe ishcer ote Page hs 
1 TXT_RAB FRABSW_USZ] = 255; 
4 TXT“RAB CRABSL-UBF) = BUFFER (02; 
98 TPARSE_BLOCK CPARAM_L_ORIG_TXT] = PARALLEL_BUFFER (02; 
95 3: 


'¢ 
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HE 
te 
} Ready to do the real work. 
4 
& 
4 
4 
4 
4 
& 
& 
4 
4 
4 
4 
4 
4 
4 
& 
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'¢ 
Initialize fields needed by LIBSTPARSE. 


TPARSE BLOCK CTPASL_COUNT] = TPASK_COUNTO; 
TPARSE_BLOCK LTPASV_BLANKS) = 0; 
! start by skipping over blanks 


' Allocate temporary virtual memory to hold the terminal index. This 
! index belongs at the end of the terminal table but we don't know how 
' much space the terminal definitions will take. So we will move it 
there after all the terminal definitions have been processed. 


IF NOT (VM_STATUS = LIBSGET_VM (XREF (SMGSK TERM_INDEX SIZE), TERM_INDEX)) 
RETURN (.VM_STATUS); 

CHSFILL (0, SMGSK_TERM_INDEX_SIZE, .TERM_INDEX); 

TPARSE_BLOCK CPARAM_A_TERM_INDEX] = .TERM_INDEX; 


if wor LIBSTPARSE (.TPARSE_BLOCK, SMGSSA_STMT_STATES, SMGSSA_STMT_KEYWDS) 
SIGNAL_STOP (SMG$_SYNERR); ! syntax error 


Now that all terminal definitions are in place, append the terminal index. 


BINARY_RAB : REF $RAB_DECL; 
TERM_INDEX : REF VECTOR C,BYTE); 
BINARY_RAB = .TPARSE_BLOCK CPARAM_A_BINARY_RAB); 


TERM_INDEX C.TPARSE_BLOCK CPARAM_L_TERM_INDEX_SIZE]]) = 0; 
' mark end of index with a zero 


TERM_TAB CTTB_L_INDEX_OFFSET] = (.SMGSSCURRENT_DEF BLOCK - 1) * 512; 
! offset in bytes 


BINARY_RAB CRABSW_RSZ) = .TPARSE_BLOCK CPARAM_L_TERM_INDEX_SIZE] + 1; 
! add one for zero 
BINARY_RAB CRABSL_RBF3 = .TERM_INDEX; 
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1 BINARY_RAB CRABSL_BKT] = .SMGSSCURRENT_DEF _BLOCK; 
r SWRITE (RAB = .BINARY_RAB); 

45 ts 


Z Write out the header block. 


wr 


BINARY_RAB CRABSW_RSZ] = SMGS$K_HEADER_SIZE; 


t 
1 

3 4 

: 4 

; 4 

; 4 

; 4 

: 4 

; 4 

; 4 

; 4 

d 

; 585 4 BINARY_RAB CRABSL_RBF] = .TPARSE_BLOCK CPARAM_A_HEADER]; 

: 4 BINARY_RAB CRABSL_BKT) = 1; ! Ist block of file 

; 89 4 SWRITE (RAB = .BINARY_RAB); 

: 234 END; 

: 338 

; 1+ 

: 230 j_Sealtecete temporary storage. 

: 596 

: $36 PA IF NOT (VM_STATUS = LIBSFREE_VM CREE (SMGS$K_HEADER_SIZE), 

: 398 4 aur TPARSE_BLOCK” LPARAM~A_HEADER]) ) 

: 600 ; RETURN (.VM_STATUS); 

: 60 4 IF NOT (VM_STATUS = LIBSFREE_VM CREE (SMGSK_TERM_DEF_SIZE) 

; 605 4 bee TPARSE_BLOCK~ CPARAM_A~CAP_PTRSJ)) 

; 609 3 RETURN (.VM_STATUS); 

; é07 4 IF NOT (VM_STATUS = LIBSFREE_VM (ZREF (SMGSK_TERM_INDEX_SIZE), TERM_INDEX)) 

; 609 RETURN (.VM_STATUS); 

; gi RETURN (SS$_NORMAL) ; 

: gig END; ! end of BIND 

: 614 END; ! End of routine PARSE_TERM_DEFS 


-EXTRN SYSSWRITE 
OFFC 00000 PARSE_TERM perse 


WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 0477 
A G00000096 09 86 96 00009 moves tere ve, Ll 
FDF ‘ 19 MOVAB Lea SP) p : 
OR BB BL Rs Mgt ij 
§ D 0001D PUSHL RS ; ; 
06 AE 0200 F Be 1F MOV Zu #512, 4(SP) ; 0535 
05 33 tA #2, 1 : 0536 


a> ILD_TERM_ By 


TS 


+a 
"wn 


eh. 
jemna sto IECSEEHOES URN MGMLOMESSRtS Rhee 
8 


38 33 9 Me WncSTATUS. 18 

0200 8F 00 6E . a8 C MOVCS #07 (SP), #0, #512, a0(RB) : : 
4 Ad OF A PUSHAB : ; 

04 AE ui 8F ie : MOVZWL #636, 4(SP) : : 

4 AE 9F 0004 PUSHAB 4(SP) : ; 

F 4 CALLS to: LIBSGET_vM : ; 

ig BD p00G BLBe MSvaTUS. SS : : 

1A00 BF 00 6E vio Be Soot MOVES #07 (SP). "AO, #6656, a52(R6) ; : 
38 AG 34 OMG 00000696 RF C1 2 ADDL3 #1536 53(R6) 56(R6) : ; 
4c Ag as D 6 MOVL  56(R6S, 76(R6S : : 

5 6 D 9 6 MOVL (RB), R7 : ; 

67 1 BO 0006A MOVW ) : 3 

28 Ab p 06D MOVL  40(R6), TXT_RAB : ; 

0 A BF 98 1 MOVZBW #255, $2(TXT_RAB) : ; 

4 A FOO CD 9E 00076 MOVAB BUFFER $ocT TRT_RAB) : ; 

C Ab 8 AE 43 007C MOVAB PARALLEL “BUFFER. 92(R6) : ; 

ry 0 0081 MOVL 48, (R6)~ ; ; 

04 Ab 1 BA 00 BICB2 #1, 4(R6) ; ; 

4 AE 9F 00088 PUSHAB TERM_INDEX ; : 

04 AE 1388 8F 3C 000 MOVZWL #5000, 4(SP) 3 3 

04 AE OF 909 PUSHAB 4(SP) ; : 

68 FB 00094 CALLS no: vh LIBSGET vm ; ; 

59 D0 0097 MOVL TATOS ; : 

03 009A 1$: BLBS m’ STATUS. 2$ ; ; 

00B¢ 31 0009D BRW : ; 

1388 «68 00 6E . 00 C 90 2$: MOVCS #0, (SP), #0, #5000, @TERM_INDEX : : 
44 AG Og ac po O0A9 MOVL _- TERM_INDEX, 68(R6) : : 

000000006 F OOOAE PUSHAB SMGSSA_STMT_KEYWDS ; : 

000000006 00 9F 000B4 PUSHAB SMGSSA-STMT~STATES : 3 

DD OOOBA PUSHL R : : 

000000006 00 9 FB 008 CALLS IBSTPARSE ; 3 

D E8 000C BLBS ; ; 

000000006 er DD 0006 PUSHL rohcs SYNERR ; : 

000000006 99 1 FB 00¢ CALLS TBs ; : 

30 Ab D 990 3$: MOVL fate ), BINARY RAB : : 

50 04 AE 40 OA ci 6 D ADDL3 rhe R6). TERM_IRDEX, RO ; : 

‘ 4 00000 CLRB = (RO) ; : 

51 000000006 00 00 000DF MOVL SHGSSCURR NT_DEF_BLOCK, R1 : : 

20 FF OI f £6 MOVAB -1(R1), R : 3 

94 9 EA ASHL 49, RO 4(R7} ; 3 
. & 40 A 1 Al QOOEF ADDW3 64(R6), 34 (BINARY _RAB) ; ; 
g A 04 AE D9 F5 VL ii INDEX 40(BINARY_RAB) ; ; 

A D FA VL (BINARY _RAB) ; ; 

‘ DD F PUSHL NARY_RAB 3 3 

G F CALLS 8 SYSSURITE ; ; 

A 0200 8F B80 001 Vw #512, 34(BINARY_RAB) : : 

A 8 DO 001 MOVL O(BINARY~RAB) ; : 

A DO 0011 VL ot, 36 (BINARY RAB) ; F 

: DD 0011 PUSHL BINARY RAB ; : 

000000006 00 FB 0011 CALLS , SYSSWRITE ; ; 

8 po 1 3 PUSHL Re 3 3 

04 AE 0200 BF 3C 0012 MOVZWL #512, 4(SP) ; ; 


a6 O~TERM- PARSE TERM pers iEsert94s QR:UR:S7 YMG SheneaYSi Base. et 


re 


04 AE OF 001 PUSHAB 4(SP) ; : 
F 1 CALLS ee LIBSFREE_VM + 0671 : 
9 12¢ MOVL RO, VM_STA us 3 : 
A 1eF BLBC ys STATUS, : : 
A6 OF 001 PUSHAB acho : 2 ; 
06 AE 1A 8F 3C¢ 001 mOVZWL r) » 4¢SP) + 067 ; 
AE 9F 001 PUS 4(SP) : : 
F 1 CALLS #2, LIBSFREE_VM 3 0676 : 
? DO 001 MOVL RO, STATUS : : 
4 AE SF Oote? PUSHAB TERR INDEX : 0680 
06 AE 1388 8F 3C OO14A MOVZW #8000 4(SP) : : 
AE 9F 001 PUSHAB 4(SP) : : 
A F 1 CALLS a. LIBSFREE_VM : : 
9 DO 001 $ MOVL RO, VM_STAT ; : : 
E 1 BLBS § VM_STATUS, : ; 
0 9 BO C 4$: MOVL VM-STATUS, RO : 0682 : 
50 01 D0 00160 5S: MOVL #1, RO : : 
Be oles REY O88 
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H 9 
rminal table 16-Sep-19 2:12:47 AX-11 Bliss-32 V4.0- 
LES ersee= ihe P8i08:95 «— FaMGAT Ok deg sae aes Oe 
ZSBTTL "ELOSE FILES" 
ameetd CLOSE_FILES (PARAM_BLOCK 
= 


tee 
FUNCTIONAL DESCRIPTION: 


This routine cleans up after TERMTABLE.TXT has been processed. It 


closes TERMTABLE.TXT and TERMTABLE .EXE 
i CALLING SEQUENCE: 

ret_status = CLOSE_FILES (PARAM_BLOCK.rz.r) 
i FORMAL PARAMETERS: 


PARAM_BLOCK.rz.r Address of control block with info needed 
to access files 


! 

! 

' 

' 

' 

' 

' 

' 

' 

1 

! 

' 

i IMPLICIT INPUTS: 
NONE 

i IMPLICIT OUTPUTS: 
: NONE 

i COMPLETION STATUS: 
' 
' 
i] 
1 
] 
1 
' 
' 


$S$_NORMAL 

Errors from $CLOSE 
i SIDE EFFECTS: 

NONE 


BEGIN 
LOCAL 
STATUS; 
MAP 
PARAM_BLOCK : REF BLOCK C,BYTE); 
1+ 
: Close the ascii TERMTABLE. 
IF NOT (STATUS = SCLOSE (FAB = .PARAM_BLOCK CPARAM_A_TXT_FAB])) 
RETURN (.STATUS); 


'¢ 
: Close the binary TERMTABLE. 


Li mown AEH MOURNS IATA 


ohG8 ILD_TERM_ 


i 
i 
i 
i 
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RETURN (.STATUS); 


'¢ 
i Now that we have closed the file property. there's no need to worry about 
an incenplete -exe (due to a ctrl Y or ctrl C). 


SCANEXH (DESBLK = EXIT_BLOCK); 


'¢ 
| cosssesate virtual memory used for FABs and RABs. 


OWONAMNE WH" OWOONOW 


PUPPIES £* 


SN 


5 If NOT (STATUS = SCLOSE (FAB = .PARAM_BLOCK CPARAM_A_BINARY_AB])) 

: 60 

; 689 61 IF NOT (STATUS = LIBSFREE_VM (ZREF (FABSC_BLN), PARAM_BLOCK CPARAM_A_TXT_FABJ)) 

: 691 0 es RETURN (.STATUS); 

; 69 65 IF NOT (STATUS = LIBSFREE_VM (REF (RABSC_BLN), PARAM_BLOCK [PARAM_A_TXT_RAB])) 

: 695 Ter RETURN (.STATUS); 

: 697 769 IF NOT (STATUS = LIBSFREE_VM (ZREF (FABSC_BLN), PARAM_BLOCK CPARAM_A_BINARY_FAB])) 
; 99 44 RETURN (.STATUS); 

; 701 r78 IF NOT (STATUS = LIBSFREE_VM (XREF (RABSC_BLN), PARAM_BLOCK CPARAM_A_BINARY_RAB)) 
: 703 O77 RETURN (.STATUS); 

; 205 77 IF NOT (STATUS = LIBSFREE_VM (ZREF (NAMSC_BLN), BINARY_NAM)) 

; +09 077 RETURN (.STATUS); 

; 708 780 

: 709 07 1 RETURN (SS$_NORMAL); 

: 710 782 END; ! End of routine CLOSE_FILES 


~-EXTRN SYSSCLOSE, SYSSCANEXH 


003C 00000 CLOSE_FILES: 


eWORD Save R2,R3,R4.R5 0689 


[mre 9 MOVAB SYSS$CLOSE, RS- : 
00006 MOV LIBSFREE VM, RG : 
1 SUBL & P 3 

1 MOVL PARAM BLOCK, R2 : 0738 
A BD 1 PUSHL (R2T : 
1A CALLS SYSSCLOSE : 
Oa a : 

2c «=A2 «ODD PUSHL 44 ta > 0746 
of CALLS + SYSSCLOSE ; 
4 | 7 C BLBC Ro: SIA "8 : 


— iii 


is 


A. 
ILD_TERM_ Build Forainal table 1-5 Sep- AX-11 Bliss-32 V4.0-74 P 0 
3n88 CLOSE_FILES ak ats rik eC Se oP ob pt te alt 
00000000" €F PUSHAB EXIT BLO 3 0755 
000000006 00 oj CALLS i, as SE ANEXH : 
6 A PUSHAB + 0761 
04 AE 0 &8F MOV7BL # { 4(SP) : 
A PUSHAB 4(SP) : 
4 CALLS #2, L IBSFREE_VM : 
; MOVL TATUS : 
BLBC rAtus, : 
A PUSHAB 40(R2) : 0765 
04 AE 44 MOVZBL #68, 4(SP) : 
A PUSHAB ; 
CALLS #2, LIBSFREE_VM : 
MOVL R STATUS : 
F BLBC status, : 
g A PUSHAB 44(R2) + 0769 
04 AE BF MOVZBL #80, 4(SP) : 
» A PUSHAB p : 
4 CALLS We, LIBSF REE, vm : 
3 MOVL TYs 3 
8 BLBC s TAT brs, 28 : 
30 A2 PUSHAB : 0773 
04 AE 44 BF MOVZBL Pie 4(SP) : 
06 =A PUSHAB 4(SP) : 
4 CALLS ae LIBSFREE _VM : 
3 MOVL Tys 3 
17 BLBC STATUS. ; 
00000000' EF PUSHAB BINARY nin + 0777 
04 AE 0 &F MOVZBL #96, 4TSP) : 
4 A PUSHAB 4(SP) : 
4 CALLS #3, LIBSFREE _VM ; 
a sy : 
0 MOVL STAT us. H + 0779 
50 MOVL #1, RO : 0781 
RET ; 0782 


; Routine Size: 171 bytes, Routine Base: _SMGSCODE + 03A0 
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Kk 9 
oa eSep-198e 19:05:97 ESMGat SRE SsaceLD tea 682; 1 tag ix 
: REF BLOCK C,BYTE? 


+ 
FUNCTIONAL DESCRIPTION: 


This reyt ine is an aff handler. It is called only if 

we are interupted (it is de-established as = exit handler 
somewhere before the end of eneeys yen) . This routine will 
close TERMTABLE.EXE, if it is still open, 44 | the DLT b 
set. We ignore errors since there is a possibility that we 
were interupted before TERMTABLE.EXE was opened, or just 
after we did a normal close. 


CALLING SEQUENCE: 
ret_status = CLOSE_FILES (EXIT_REASON.rl.r, PARAM_BLOCK.rz.r) 
FORMAL PARAMETERS: 53 


EXIT_REASON.rl.r Address of exit reason. SDCLEXH passes 
this although we don't need it here. 


PARAM_BLOCK.rz.r Address of control block with info needed 
to access files 


- 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS$_NORMAL 
SIDE EFFECTS: 


BINARY_FAB = .PARAM_BLOCK CPARAM_A_BINARY_FAB] : SFAB_DECL; 
BINARY_FAB CFABSV_DLT] = 1; ! mark the file for delete 
SCLOSE (FAB = BINARY_FAB); 


RETURN (SS$_NORMAL) ; 
END; ! end of routine CLOSE_WITH_DLT 


Eee cc 


9 
Wa80g TMM. Close Sttnoet oe HESCOcH9RE QO:4897  WAMeAt OMMeSsRZaYSiba?4bo. 


0000 00000 CLOSE_wITH DLT: 
-WORD Save nothing 
3 8 AC D MOVL PARAM BLOCK, RO 
A B MOVL 44(ROJ, R 
0S A ar A BISB2 #128, §(RO) 
000000006 ° Pe 0 ‘ CALLS #1, SYSSCLOSE 
98 4 00 0018 MOVL #1, RO 
4 00018 RET 


; Routine Size: 28 bytes, Routine Base: _SMGSCODE + 0448 


3 67 0838 1 !<BLF/PAGE> 


i ILD_TERM_ Suit? term ‘Ott table 
LOSE _WITH 
m OBS 
5 0 evup 
PSECT SUMMARY 
Name Bytes 
_SMGSDATA § NOVEC, WRT, 
_SMGSCODE 11 NOVEC ,NOWRT, 
Library Statistics 
File Total 
§ 55$DUA28: Syst 1SJST Am ET L32;1 9776 
SS2ee0UA 8: CSMGRTL.OBJIRTL Lt 1B.0 32:1 36 
5SDUA28: CSMGRTL.OBJJSMGLIB.L32;1 469 
-} aSDUA 8: CSMGRTL.OBJJSMGTPALIB.L32;1 a 
.$255$DUA28: CSYSLIBITPAMAC.L32;1 42 
COMMAND QUALIF 


AXx-11 Ot ies 


1S seo- 1944 99:08:3> — FeMcrte sae 


! End of module SMGSBUILD_TERM_TABLE 


-EXTRN LIBSSTOP 


Attributes 

RD ,NOEXE,NOSHR, LCL, REL, CON, 

RD, EXE, SHR, LCL, REL, CON, 
Symbols -------- Pages Processing 
Loaded Percent Mapped Time 

97 0 581 00:01.0 
0 0 H 00:00.1 
0 0 3 00:00.4 
18 43 10 00:00.1 
0 0 14 00:00.1 
IERS 


32 V4 705 
MGBLOTRM 


74 
832; 1 


FL ESE/CHECK SCE TELS, IME TEAL .OPTIAIZE)/MOTRACE/L 1594, 18S: SREDLOTRRN/OB “08 JS: SHEBLOTIN MSRC$: SMGBLDTRM/UPDATE=(ENHS : SMGBLD TRA 


un Time 
hey T 
Lines/CPU 
Lexemes/C 


Memor 
Compitect 


1101 38 + 54 data bytes 


ime: 1: 

Min: 4 9 
PU-Min: 30869 
Used: 181 pages 
on Complete 


AH-BT13A-SE P 
VAX/VMS V4.0 x 


ENT CORPORATION 
ND PROPRIETARY 


035 


D= 


